home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_93_mouse script - pattern browser.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  891 b   |  41 lines

  1. property pMySprite, pMyMember, pMyMember2, pMyMember3
  2.  
  3. on beginSprite me
  4.   pMySprite = sprite(me.spriteNum)
  5.   pMyMember = pMySprite.memberNum
  6.   pMyMember2 = pMyMember - 1
  7.   pMyMember3 = pMyMember + 1
  8. end
  9.  
  10. on mouseEnter me
  11.   set the memberNum of sprite pMySprite to pMyMember3
  12.   case the currentSpriteNum of
  13.     "85":
  14.       put "Edit the selected pattern." into field "status"
  15.     "86":
  16.       put "Delete the selected pattern." into field "status"
  17.   end case
  18. end
  19.  
  20. on mouseLeave me
  21.   set the memberNum of sprite pMySprite to pMyMember
  22.   put EMPTY into field "status"
  23. end
  24.  
  25. on mouseDown me
  26.   repeat while the mouseDown
  27.     set the memberNum of sprite pMySprite to pMyMember2
  28.     updateStage()
  29.   end repeat
  30. end
  31.  
  32. on mouseUp me
  33.   set the memberNum of sprite pMySprite to pMyMember3
  34.   case the currentSpriteNum of
  35.     "85":
  36.       edit1bitPattern()
  37.     "86":
  38.       delete1bitPattern()
  39.   end case
  40. end
  41.